﻿Public Class TMyArgument
    Friend _ParameterName As String
    Friend _DataType As String
    Friend _ArgLength As Integer
    Friend _NumericScale As Integer
    Friend _ParameterMode As String
    Friend _Value As Object
    Public Property Value() As Object
        Get
            Return _Value
        End Get
        Set(ByVal value As Object)
            _Value = value
        End Set
    End Property
    Public ReadOnly Property ParameterName() As String
        Get
            Return _ParameterName
        End Get
    End Property
    Public ReadOnly Property DataType() As String
        Get
            Return _DataType
        End Get
    End Property
    Public ReadOnly Property ArgLength() As Integer
        Get
            Return _ArgLength
        End Get
    End Property
    Public ReadOnly Property NumericScale() As Integer
        Get
            Return _NumericScale
        End Get
    End Property
    Public ReadOnly Property ParameterMode() As String
        Get
            If _ParameterMode.Length = 0 Then
                Return "RETURNS"
            Else
                Return _ParameterMode
            End If
        End Get
    End Property

End Class
